(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     17757,        568]
NotebookOptionsPosition[     13796,        439]
NotebookOutlinePosition[     15709,        493]
CellTagsIndexPosition[     15624,        488]
WindowTitle->NewPackage - ApplicationMaker`PackageMaker`
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {Cell["APPLICATIONMAKER`PACKAGEMAKER` SYMBOL", "PacletNameCell"], Cell[
    TextData[{
     Cell[BoxData[
      ActionMenuBox[
       FrameBox["\<\"Tutorials \[RightGuillemet]\"\>",
        StripOnInput->False], {"\<\"How to build documented packages\"\>":>
       Documentation`HelpLookup[
        StringJoin[
        "paclet:", "ApplicationMaker", 
         "/tutorial/HowToBuildADocumentedPackage"]]},
       Appearance->None,
       MenuAppearance->Automatic]],
      LineSpacing->{1.4, 0}],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      ActionMenuBox[
       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
        StripOnInput->False], {"\<\"NewApplication\"\>":>
       Documentation`HelpLookup[
        StringJoin[
        "paclet:", "ApplicationMaker", 
         "/ref/NewApplication"]], "\<\"UpdateInit\"\>":>
       Documentation`HelpLookup[
        StringJoin["paclet:", "ApplicationMaker", "/ref/UpdateInit"]]},
       Appearance->None,
       MenuAppearance->Automatic]],
      LineSpacing->{1.4, 0}],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      ActionMenuBox[
       FrameBox["\<\"More About \[RightGuillemet]\"\>",
        StripOnInput->False], {"\<\"ApplicationMaker\"\>":>
       Documentation`HelpLookup[
        StringJoin["paclet:", "ApplicationMaker", "/guide/ApplicationMaker"]]},
       Appearance->None,
       MenuAppearance->Automatic]],
      LineSpacing->{1.4, 0}],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      ActionMenuBox[
       FrameBox["\<\"URL \[RightGuillemet]\"\>",
        StripOnInput->False], {"\<\"Go to StackOverflow tutorial\"\>":>
       FrontEndExecute[{
         NotebookLocate[{
           URL[
           "http://stackoverflow.com/questions/6574710/integrating-notebooks-\
to-mathematicas-documentation-center"], None}]}], 
       Delimiter, "\<\"Go to Wolfram Mathematica\"\>":>FrontEndExecute[{
         NotebookLocate[{
           URL[
           "http://reference.wolfram.com/mathematica/guide/Mathematica.html"],
            None}]}], "\<\"Go to jmlopez website\"\>":>FrontEndExecute[{
         NotebookLocate[{
           URL["http://math.uh.edu/~jmlopez/"], None}]}]},
       Appearance->None,
       MenuAppearance->Automatic]],
      LineSpacing->{1.4, 0}]
    }], "AnchorBar"]}
  }]], "AnchorBarGrid",
 CellID->1699355767],

Cell[CellGroupData[{

Cell["NewPackage", "ObjectName",
 CellID->1434603343],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       ButtonBox["NewPackage",
        BaseStyle->"Link",
        ButtonData->"paclet:ApplicationMaker/ref/NewPackage"], "[", 
       StyleBox[
        RowBox[{"pkgName", ",", "appName"}], "TI"], "]"}]], "InlineFormula"],
     "\[LineSeparator]Creates the notebook pkgName.nb and its respective m \
file inside the application ",
     StyleBox["appName", "TI"],
     "."
    }]]},
   {" ", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       ButtonBox["NewPackage",
        BaseStyle->"Link",
        ButtonData->"paclet:ApplicationMaker/ref/NewPackage"], "[", 
       RowBox[{
        StyleBox["pkgName", "TI"], 
        StyleBox[",", "TI"], 
        StyleBox["appName", "TI"], 
        StyleBox[",", "TI"], " ", 
        StyleBox["appDir", "TI"]}], "]"}]], "InlineFormula"],
     "\[LineSeparator]Creates the notebook pkgName.nb and its respective m \
file in the application ",
     StyleBox["appName", "TI"],
     " located in ",
     StyleBox["appDir", "TI"],
     "."
    }]]}
  }]], "Usage",
 CellID->1579480932]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 ButtonBox[
  FrameBox[
   StyleBox[
    RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"],
   StripOnInput->False],
  Appearance->{Automatic, None},
  BaseStyle->None,
  ButtonFunction:>(FrontEndExecute[{
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], All, ButtonCell], 
     FrontEndToken["OpenCloseGroup"], 
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], After, CellContents]}]& ),
  Evaluator->None,
  Method->"Preemptive"]]]], "NotesSection",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1290663557,
 ApplicationMaker`DocumentationMaker`Private`WholeCellGroupOpener -> True],

Cell["\<\
By default appDir is $UserBaseDirectory/Applications. \
\>", "Notes",
 CellID->450084152],

Cell["\<\
If the package you are trying to create already exists it will inform you.\
\>", "Notes",
 CellID->1126937930]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[ButtonBox["EXAMPLES",
 BaseStyle->None,
 Appearance->{Automatic, None},
 Evaluator->None,
 Method->"Preemptive",
 ButtonFunction:>(FrontEndExecute[{
    FrontEnd`SelectionMove[
     FrontEnd`SelectedNotebook[], All, ButtonCell], 
    FrontEndToken["OpenCloseGroup"], 
    FrontEnd`SelectionMove[
     FrontEnd`SelectedNotebook[], After, 
     CellContents]}]& )]], "PrimaryExamplesSection",
 CellTags->"PrimaryExamplesSection",
 CellID->1787506617,
 ApplicationMaker`DocumentationMaker`Private`WholeCellGroupOpener -> True],

Cell[CellGroupData[{

Cell[TextData[{
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "ExampleSection", "ExampleSection",
 CellID->1474974036,
 ApplicationMaker`DocumentationMaker`Private`WholeCellGroupOpener -> True],

Cell[TextData[{
 "Here I'm assuming that the application SampleApplication has been created \
using ",
 ButtonBox["NewApplication.",
  BaseStyle->"Link",
  ButtonData->"paclet:ApplicationMaker/ref/NewApplication"]
}], "ExampleText",
 CellID->1484885731],

Cell[BoxData[
 RowBox[{"<<", "ApplicationMaker`"}]], "Input",
 CellLabel->"In[1]:=",
 CellID->8270504],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NewPackage", "[", 
  RowBox[{"\"\<UsefulPackage\>\"", ",", " ", "\"\<SampleApplication\>\""}], 
  "]"}]], "Input",
 CellLabel->"In[2]:=",
 CellID->1563407320],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"NotebookObject", "[", 
   PanelBox[GridBox[{
      {
       TooltipBox[
        ButtonBox[
         StyleBox[
          
          DynamicBox[FEPrivate`FrontEndResource[
           "FEBitmaps", "ManipulatePasteIcon"],
           ImageSizeCache->{13., {4., 9.}}],
          DynamicUpdating->True],
         Appearance->{Automatic, None},
         BaseStyle->{},
         ButtonFunction:>FrontEndExecute[{
            FrontEnd`SetSelectedNotebook[
             NotebookObject[
              FrontEndObject[
               LinkObject["vpq_shm", 1, 1]], 407]]}],
         Evaluator->None,
         Method->"Queued"],
        DynamicBox[
         FEPrivate`FrontEndResource[
         "FEStrings", "NotebookObjectToTheFront"]]], 
       TagBox[
        TooltipBox["\<\"UsefulPackage.nb\"\>",
         "\"/Users/jmlopez/Library/Mathematica/Applications/SampleApplication/\
UsefulPackage.nb\"",
         TooltipStyle->"TextStyling"],
        Annotation[#, 
         "/Users/jmlopez/Library/Mathematica/Applications/SampleApplication/\
UsefulPackage.nb", "Tooltip"]& ]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}}],
    FrameMargins->{{4, 5}, {4, 4}}], "]"}],
  NotebookObject[
   FrontEndObject[
    LinkObject["vpq_shm", 1, 1]], 407],
  Editable->False]], "Output",
 CellLabel->"Out[2]=",
 CellID->1724406195]
}, Open  ]],

Cell[TextData[{
 "If you try to execute the same code again ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will inform you that the notebook already exits."
}], "ExampleText",
 CellID->1803103100],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NewPackage", "[", 
  RowBox[{"\"\<UsefulPackage\>\"", ",", " ", "\"\<SampleApplication\>\""}], 
  "]"}]], "Input",
 CellLabel->"In[3]:=",
 CellID->1612058883],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NewPackage", "::", "pkgerr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The package you are trying to create in the application \
\[NoBreak]\\!\\(\\\"SampleApplication\\\"\\)\[NoBreak] already exists. Click \
\[NoBreak]\\!\\(\\*TagBox[ButtonBox[PaneSelectorBox[{False -> \
\\\"\\\\\\\"here\\\\\\\"\\\", Rule[True, \
StyleBox[\\\"\\\\\\\"here\\\\\\\"\\\", List[\\\"HyperlinkActive\\\"]]]}, \
Dynamic[CurrentValue[\\\"MouseOver\\\"]], Rule[BaselinePosition, Baseline], \
Rule[BaseStyle, List[\\\"Hyperlink\\\"]], Rule[FrameMargins, 0], \
Rule[ImageSize, Automatic]], Rule[BaseStyle, \\\"Hyperlink\\\"], \
RuleDelayed[ButtonData, \
List[\\\"/Users/jmlopez/Library/Mathematica/Applications/SampleApplication/\
UsefulPackage.nb\\\", None]], Rule[ButtonNote, \
\\\"/Users/jmlopez/Library/Mathematica/Applications/SampleApplication/\
UsefulPackage.nb\\\"]], Function[Annotation[Slot[1], \
\\\"/Users/jmlopez/Library/Mathematica/Applications/SampleApplication/\
UsefulPackage.nb\\\", \\\"Hyperlink\\\"]]]\\)\[NoBreak] to edit its contents. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ApplicationMaker/ref/NewPackage\\\", ButtonNote -> \
\\\"ApplicationMaker`PackageMaker`NewPackage::pkgerr\\\"]\\)\"\>"}]], \
"Message", "MSG",
 CellLabel->"During evaluation of In[3]:=",
 CellID->1219956029],

Cell[BoxData["$Failed"], "Output",
 CellLabel->"Out[3]=",
 CellID->1774601494]
}, Open  ]],

Cell["\<\
This is what happens when you specify an invalid application name.\
\>", "ExampleText",
 CellID->1474420122],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NewPackage", "[", 
  RowBox[{
  "\"\<UsefulPackage\>\"", ",", " ", "\"\<NonExistantApplication\>\""}], 
  "]"}]], "Input",
 CellLabel->"In[4]:=",
 CellID->765187721],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NewPackage", "::", "nodir"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"There is no application \
\[NoBreak]\\!\\(\\\"NonExistantApplication\\\"\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"/Users/jmlopez/Library/Mathematica/Applications\\\"\\)\
\[NoBreak]. To create a new application use NewApplication \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ApplicationMaker/ref/NewPackage\\\", ButtonNote -> \
\\\"ApplicationMaker`PackageMaker`NewPackage::nodir\\\"]\\)\"\>"}]], "Message",\
 "MSG",
 CellLabel->"During evaluation of In[4]:=",
 CellID->1377948611],

Cell[BoxData["$Failed"], "Output",
 CellLabel->"Out[4]=",
 CellID->718655829]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[ButtonBox["SEE ALSO",
 BaseStyle->None,
 Appearance->{Automatic, None},
 Evaluator->None,
 Method->"Preemptive",
 ButtonFunction:>(FrontEndExecute[{
    FrontEnd`SelectionMove[
     FrontEnd`SelectedNotebook[], All, ButtonCell], 
    FrontEndToken["OpenCloseGroup"], 
    FrontEnd`SelectionMove[
     FrontEnd`SelectedNotebook[], After, 
     CellContents]}]& )]], "SeeAlsoSection",
 CellID->83480331,
 ApplicationMaker`DocumentationMaker`Private`WholeCellGroupOpener -> True],

Cell[TextData[{
 Cell[BoxData[
  StyleBox[
   ButtonBox["NewApplication",
    BaseStyle->"Link",
    ButtonData->"paclet:ApplicationMaker/ref/NewApplication"],
   FontFamily->"Verdana"]], "InlineFormula"],
 "\[NonBreakingSpace]",
 StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
  "InlineSeparator"],
 " ",
 Cell[BoxData[
  StyleBox[
   ButtonBox["UpdateInit",
    BaseStyle->"Link",
    ButtonData->"paclet:ApplicationMaker/ref/UpdateInit"],
   FontFamily->"Verdana"]], "InlineFormula"]
}], "SeeAlso",
 CellID->747101626]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[ButtonBox["TUTORIALS",
 BaseStyle->None,
 Appearance->{Automatic, None},
 Evaluator->None,
 Method->"Preemptive",
 ButtonFunction:>(FrontEndExecute[{
    FrontEnd`SelectionMove[
     FrontEnd`SelectedNotebook[], All, ButtonCell], 
    FrontEndToken["OpenCloseGroup"], 
    FrontEnd`SelectionMove[
     FrontEnd`SelectedNotebook[], After, 
     CellContents]}]& )]], "TutorialsSection",
 CellID->200144173,
 ApplicationMaker`DocumentationMaker`Private`WholeCellGroupOpener -> True],

Cell[TextData[ButtonBox["How to build a documented package",
 BaseStyle->"Link",
 ButtonData->
  "paclet:ApplicationMaker/tutorial/HowToBuildADocumentedPackage"]], \
"Tutorials",
 CellID->863724409]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[ButtonBox["MORE ABOUT",
 BaseStyle->None,
 Appearance->{Automatic, None},
 Evaluator->None,
 Method->"Preemptive",
 ButtonFunction:>(FrontEndExecute[{
    FrontEnd`SelectionMove[
     FrontEnd`SelectedNotebook[], All, ButtonCell], 
    FrontEndToken["OpenCloseGroup"], 
    FrontEnd`SelectionMove[
     FrontEnd`SelectedNotebook[], After, 
     CellContents]}]& )]], "MoreAboutSection",
 CellID->1014359816,
 ApplicationMaker`DocumentationMaker`Private`WholeCellGroupOpener -> True],

Cell[TextData[ButtonBox["ApplicationMaker",
 BaseStyle->"Link",
 ButtonData->"paclet:ApplicationMaker/guide/ApplicationMaker"]], "MoreAbout",
 CellID->1620237626]
}, Open  ]],

Cell["Made for Mathematica 8  |  Last modified in July 2011", "History",
 CellID->1315940151],

Cell[" ", "FooterCell",
 CellID->72037404]
},
Saveable->False,
WindowSize->{742, 703},
WindowMargins->{{Automatic, 42}, {Automatic, 4}},
WindowTitle->"NewPackage - ApplicationMaker`PackageMaker`",
DockedCells->FEPrivate`FrontEndResource[
 "FEExpressions", "HelpViewerToolbar"],
PageHeaders->{{None, None, None}, {None, None, 
   Cell[
    TextData[{
      Cell[
       TextData[{"ApplicationMaker Documentation "}], "PageHeader"], 
      Cell[
       TextData[{
         CounterBox["Page"]}], "PageNumber"]}], 
    CellMargins -> {{Inherited, -29}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {
   Cell[
    TextData[{"Created by Manuel Lopez | July 12, 2011"}], "PageFooter"], 
   None, None}},
TaggingRules->{
 "ModificationHighlight" -> False, 
  "Metadata" -> {
   "context" -> "ApplicationMaker`", 
    "keywords" -> {"newpackage", "package", "NEWPACKAGE"}, "index" -> True, 
    "label" -> "ApplicationMaker`PackageMaker` Symbol", "language" -> "en", 
    "paclet" -> "ApplicationMaker PackageMaker", "status" -> "", "summary" -> 
    "NewPackage[pkgName, appName] creates the notebook pkgName.nb and its \
respective m file inside the application appName.", 
    "synonyms" -> {"newpackage", "NEWPACKAGE"}, "title" -> "NewPackage", 
    "windowTitle" -> "NewPackage", "type" -> "Symbol", "uri" -> 
    "ApplicationMaker/ref/NewPackage"}, "SearchTextTranslated" -> "", 
  "LinkTrails" -> ""},
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 23, \
2011)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "PrimaryExamplesSection"->{
  Cell[5268, 163, 537, 14, 45, "PrimaryExamplesSection",
   CellTags->"PrimaryExamplesSection",
   CellID->1787506617]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"PrimaryExamplesSection", 15480, 481}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[614, 21, 2513, 63, 47, "AnchorBarGrid",
 CellID->1699355767],
Cell[CellGroupData[{
Cell[3152, 88, 53, 1, 51, "ObjectName",
 CellID->1434603343],
Cell[3208, 91, 1105, 34, 138, "Usage",
 CellID->1579480932]
}, Open  ]],
Cell[CellGroupData[{
Cell[4350, 130, 656, 18, 38, "NotesSection",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1290663557],
Cell[5009, 150, 99, 3, 30, "Notes",
 CellID->450084152],
Cell[5111, 155, 120, 3, 30, "Notes",
 CellID->1126937930]
}, Open  ]],
Cell[CellGroupData[{
Cell[5268, 163, 537, 14, 45, "PrimaryExamplesSection",
 CellTags->"PrimaryExamplesSection",
 CellID->1787506617],
Cell[CellGroupData[{
Cell[5830, 181, 242, 6, 32, "ExampleSection",
 CellID->1474974036],
Cell[6075, 189, 253, 7, 32, "ExampleText",
 CellID->1484885731],
Cell[6331, 198, 102, 3, 24, "Input",
 CellID->8270504],
Cell[CellGroupData[{
Cell[6458, 205, 182, 5, 24, "Input",
 CellID->1563407320],
Cell[6643, 212, 1442, 43, 47, "Output",
 CellID->1724406195]
}, Open  ]],
Cell[8100, 258, 204, 6, 32, "ExampleText",
 CellID->1803103100],
Cell[CellGroupData[{
Cell[8329, 268, 182, 5, 24, "Input",
 CellID->1612058883],
Cell[8514, 275, 1413, 26, 37, "Message",
 CellID->1219956029],
Cell[9930, 303, 78, 2, 33, "Output",
 CellID->1774601494]
}, Open  ]],
Cell[10023, 308, 118, 3, 32, "ExampleText",
 CellID->1474420122],
Cell[CellGroupData[{
Cell[10166, 315, 189, 6, 24, "Input",
 CellID->765187721],
Cell[10358, 323, 677, 15, 53, "Message",
 CellID->1377948611],
Cell[11038, 340, 77, 2, 33, "Output",
 CellID->718655829]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11176, 349, 490, 13, 45, "SeeAlsoSection",
 CellID->83480331],
Cell[11669, 364, 540, 18, 19, "SeeAlso",
 CellID->747101626]
}, Open  ]],
Cell[CellGroupData[{
Cell[12246, 387, 494, 13, 45, "TutorialsSection",
 CellID->200144173],
Cell[12743, 402, 198, 5, 16, "Tutorials",
 CellID->863724409]
}, Open  ]],
Cell[CellGroupData[{
Cell[12978, 412, 496, 13, 45, "MoreAboutSection",
 CellID->1014359816],
Cell[13477, 427, 162, 3, 16, "MoreAbout",
 CellID->1620237626]
}, Open  ]],
Cell[13654, 433, 93, 1, 42, "History",
 CellID->1315940151],
Cell[13750, 436, 42, 1, 24, "FooterCell",
 CellID->72037404]
}
]
*)

(* End of internal cache information *)
